home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / M2 / LISTS.DEF < prev    next >
Encoding:
Modula Definition  |  2000-09-26  |  608 b   |  28 lines
  1. DEFINITION MODULE Lists;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4.  
  5. TYPE
  6.  NodePtr = POINTER TO Node;
  7.  ListPtr = POINTER TO List;
  8.  
  9.  Node = RECORD
  10.   prevEntry : NodePtr;
  11.   nextEntry : NodePtr;
  12.   list      : ListPtr;
  13.  END (* RECORD *);
  14.  
  15.  List = RECORD
  16.   firstEntry : NodePtr;
  17.   lastEntry  : NodePtr;
  18.  END (* RECORD *);
  19.  
  20. PROCEDURE AddHead(list : ListPtr; entry : NodePtr);
  21. PROCEDURE AddTail(list : ListPtr; entry : NodePtr);
  22. PROCEDURE NewList(list : ListPtr);
  23. PROCEDURE Remove(entry : NodePtr);
  24. PROCEDURE GetNext(node : NodePtr) : ADDRESS;
  25. PROCEDURE GetPrev(node : NodePtr) : ADDRESS;
  26.  
  27. END Lists.
  28.